home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 119 / 119.d81 / ls briefs (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 100 dv=peek(186):ifdv<8thendv=8
  2. 110 delay=116:poke53280,0:poke53281,0
  3. 120 print"[147]";:poke1023,dv
  4. 130 fori=8to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
  5. 140 print"":fori=217to242:pokei,peek(i)or128:next
  6. 150 poke214,9:print"[145]"tab(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  7. 160 fori=1to11:printtab(2)"[159]                                    [155][146][223]":next
  8. 170 printtab(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
  9. 180 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
  10. 190 poke214,10:print"[145][159]";
  11. 200 fori=1to11:reada$
  12. 210 printspc(20-len(a$)/2)""a$:a$="":next
  13. 220 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then220
  14. 230 a$="briefs"
  15. 240 data"[204][160][207] [193] [196][160][211] [212] [193] [210]   [194] [210][160][201] [197] [198] [211]","by [202]eff [202]ones"
  16. 250 data"  ([195])1994 by [211]oftdisk [208]ublishing"
  17. 260 data"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  18. 270 [131]"    (NULL)his is the copyrighted work of
  19. 280 data"[211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199], but may be
  20. 290 [131]"passed along because it contains ","our submission and subscription  "
  21. 300 [131]"forms.                            "
  22. 310 [131]"(NULL)(NULL)asc(NULL)str$right$(NULL)(NULL) lenustomer service:  "
  23. 320 [131]"1-800-831-2694 or 1-318-221-8718
  24. 330 fori=dvtodv:close2:open2,i,2:close2:ifstthen350
  25. 340 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then360
  26. 350 next:print""a$" not found!":poke186,8:end
  27. 360 q$=chr$(34):poke646,peek(53281):print"";
  28. 370 print"p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  29. 380 print"r[213]:";:poke631,13:poke632,145:poke633,145:poke634,145
  30. 390 poke635,145:poke636,13:poke198,6
  31.